home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / you-075a.lha / you-075a / bootstrap.h < prev    next >
C/C++ Source or Header  |  1992-06-18  |  1KB  |  36 lines
  1. /* ******************************************************************** */
  2. /*  bootstrap.h      Copyright (C) Codemist and University of Bath 1989 */
  3. /*                                                                      */
  4. /* C-bootstrapping prototypes and defines                               */
  5. /* ******************************************************************** */
  6.  
  7. /*
  8.  * Change Log:
  9.  *   Version 1, December 1989
  10.  */
  11.  
  12. #ifndef BOOTSTRAP_H
  13. #define BOOTSTRAP_H
  14.  
  15. /* Cbstracted class accessors (not used averywhere...) */
  16.  
  17. #define CLASS_NAME(class)          (class->CLASS.name)
  18. #define CLASS_SUPER(class)         (class->CLASS.superclass)
  19. #define CLASS_SUB(class)           (class->CLASS.subclasses)
  20. #define CLASS_DESCS(class)         (class->CLASS.slot_table)
  21.  
  22. extern LispObject symbol_name;
  23. extern LispObject symbol_superclass;
  24. extern LispObject symbol_slot_descriptions;
  25.  
  26. extern void make_class(LispObject *,
  27.                LispObject,char *,LispObject,LispObject, int);
  28. extern void gen_class(LispObject *,
  29.               LispObject *,char *,LispObject,LispObject);
  30.  
  31. extern LispObject make_list_2(LispObject*,LispObject,LispObject);
  32.  
  33. extern LispObject Null;
  34.  
  35. #endif
  36.